home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 010a / lamenu10.zip / LAMENU4.BC < prev    next >
Text File  |  1991-01-26  |  4KB  |  238 lines
  1. echo \\27[44;37m
  2. cls
  3. let %!z = %1.dsp
  4. read_file %!x %!z
  5. let %!j = %!x
  6. read_file %!x
  7. let %!a = %!x
  8. read_file %!x
  9. let %!b = %!x
  10. read_file %!x
  11. let %!c = %!x
  12. read_file %!x
  13. let %!d = %!x
  14. :start
  15. cls
  16. locate 1 2
  17. echonolf La Menu System v1.0
  18. lmdt
  19. gosub time
  20. locate 2 4
  21. echo By Bill Mezian
  22. locate 3 1
  23. echonolf ╞═══════════════════════════════════════
  24. echo ═══════════════════════════════════════╡
  25. let %!n = %!j
  26. string_length %!n
  27. sub %!n 80
  28. abs %!n
  29. div %!n 2
  30. locate 5 %!n
  31. echo %!j
  32. :begin
  33. locate 10 29
  34. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  35. locate 11 29
  36. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  37. locate 12 29
  38. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  39. locate 13 29
  40. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  41. locate 20 13
  42. echonolf \\27[44;37mUse Arrow Keys \\24\\25 to\\0
  43. echo \\27[46;30mHighlight Selection\\27[44;37m and Press Enter
  44. locate 24 25
  45. echonolf \\27[46;30m[ESC]\\27[44;37m To Return To The Menu
  46. if %RC% == 1 goto u_arw_2
  47. if %RC% == 2 goto d_arw_1
  48. if %RC% == 3 goto d_arw_2
  49. if %RC% == 4 goto d_arw_3
  50. :1_start
  51. locate 10 29
  52. echonolf \\27[46;30m══* %!a\\27[44;37m
  53. locate 10 32
  54. getkey
  55. error_level %!q
  56. gosub 1_test
  57. goto 1_start
  58. :u_arw_1
  59. gosub time
  60. locate 10 29
  61. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  62. locate 13 29
  63. echonolf \\27[46;30m══* %!d\\27[44;37m
  64. locate 13 32
  65. getkey
  66. error_level %!q
  67. gosub 4_test
  68. goto u_arw_1
  69. :d_arw_1
  70. gosub time
  71. locate 10 29
  72. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  73. locate 11 29
  74. echonolf \\27[46;30m══* %!b\\27[44;37m
  75. locate 11 32
  76. getkey
  77. error_level %!q
  78. gosub 2_test
  79. goto d_arw_1
  80. :u_arw_2
  81. gosub time
  82. locate 11 29
  83. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  84. locate 10 29
  85. echonolf \\27[46;30m══* %!a\\27[44;37m
  86. locate 10 32
  87. getkey
  88. error_level %!q
  89. gosub 1_test
  90. goto u_arw_2
  91. :d_arw_2
  92. gosub time
  93. locate 11 29
  94. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  95. locate 12 29
  96. echonolf \\27[46;30m══* %!c\\27[44;37m
  97. locate 12 32
  98. getkey
  99. error_level %!q
  100. gosub 3_test
  101. goto d_arw_2
  102. :u_arw_3
  103. gosub time
  104. locate 12 29
  105. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  106. locate 11 29
  107. echonolf \\27[46;30m══* %!b\\27[44;37m
  108. locate 11 32
  109. getkey
  110. error_level %!q
  111. gosub 2_test
  112. goto u_arw_3
  113. :d_arw_3
  114. gosub time
  115. locate 12 29
  116. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  117. locate 13 29
  118. echonolf \\27[46;30m══* %!d\\27[44;37m
  119. locate 13 32
  120. getkey
  121. error_level %!q
  122. gosub 4_test
  123. goto d_arw_3
  124. :u_arw_4
  125. gosub time
  126. locate 13 29
  127. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  128. locate 12 29
  129. echonolf \\27[46;30m══* %!c\\27[44;37m
  130. locate 12 32
  131. getkey
  132. error_level %!q
  133. gosub 3_test
  134. goto u_arw_4
  135. :d_arw_4
  136. gosub time
  137. locate 13 29
  138. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  139. locate 10 29
  140. echonolf \\27[46;30m══* %!a\\27[44;37m
  141. locate 10 32
  142. getkey
  143. error_level %!q
  144. gosub 1_test
  145. goto d_arw_4
  146. :1_test
  147. if %!q = 18432 goto u_arw_1
  148. if %!q = 20480 goto d_arw_1
  149. if %!q = 27 goto end
  150. set RC=1
  151. if %!q = 13 goto 1
  152. gosub time
  153. return
  154. :2_test
  155. if %!q = 18432 goto u_arw_2
  156. if %!q = 20480 goto d_arw_2
  157. if %!q = 27 goto end
  158. set RC=2
  159. if %!q = 13 goto 2
  160. gosub time
  161. return
  162. :3_test
  163. if %!q = 18432 goto u_arw_3
  164. if %!q = 20480 goto d_arw_3
  165. if %!q = 27 goto end
  166. set RC=3
  167. if %!q = 13 goto 3
  168. gosub time
  169. return
  170. :4_test
  171. if %!q = 18432 goto u_arw_4
  172. if %!q = 20480 goto d_arw_4
  173. if %!q = 27 goto end
  174. set RC=4
  175. if %!q = 13 goto 4
  176. gosub time
  177. return
  178. :time
  179. hour_hour
  180. error_level %!h
  181. minute_minute
  182. error_level %!t
  183. let %!k = %!h
  184. if %!t == 0 let %!t = 00
  185. if %!t == 1 let %!t = 01
  186. if %!t == 2 let %!t = 02
  187. if %!t == 3 let %!t = 03
  188. if %!t == 4 let %!t = 04
  189. if %!t == 5 let %!t = 05
  190. if %!t == 6 let %!t = 06
  191. if %!t == 7 let %!t = 07
  192. if %!t == 8 let %!t = 08
  193. if %!t == 9 let %!t = 09
  194. let %!p = AM
  195. GT %!k 12
  196. if errorlevel 1 let %!p = PM
  197. if %!h == 0 let %!p = AM
  198. if %!p == PM sub %!h 12
  199. if %!h == 12 let %!p = PM
  200. if %!h == 0 let %!h = 12
  201. locate 1 68
  202. echonolf \\27[44;37m%!h\\58
  203. echonolf %!t  %!p\\0
  204. echo
  205. return
  206. :1
  207. cls
  208. if %!a = * goto start
  209. locate 25 5
  210. echo Loading %!a - Please Wait
  211. set LM=1
  212. exit
  213. :2
  214. cls
  215. if %!b = * goto start
  216. locate 25 5
  217. echo Loading %!b - Please Wait
  218. set LM=2
  219. exit
  220. :3
  221. cls
  222. if %!c = * goto start
  223. locate 25 5
  224. echo Loading %!c - Please Wait
  225. set LM=3
  226. exit
  227. :4
  228. cls
  229. if %!d = * goto start
  230. locate 25 5
  231. echo Loading %!d - Please Wait
  232. set LM=4
  233. exit
  234. :end
  235. set LM=EX
  236. echo \\27[0m
  237. cls
  238.